home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / s / config.rexx < prev    next >
OS/2 REXX Batch file  |  1996-07-18  |  3KB  |  59 lines
  1. /*Set ENVs (c) Frank Röchter*/
  2. if exists("libs:AT5_LIB_ID")=0 then address COMMAND "assign libs: Amiga-Tools-5:libs add"
  3. options results
  4. IF EXISTS("libs:rexxsupport.library") THEN DO
  5.  IF ~SHOW("L","rexxsupport.library") THEN
  6.   IF ~ADDLIB("rexxsupport.library",0,-30,0) THEN EXIT
  7. END
  8. IF EXISTS("libs:rexxdossupport.library") THEN DO
  9.  IF ~SHOW("L","rexxdossupport.library") THEN
  10.   IF ~ADDLIB("rexxdossupport.library",0,-30,0) THEN EXIT
  11. END 
  12. IF EXISTS("libs:rexxreqtools.library") THEN DO
  13.  IF ~SHOW("L","rexxreqtools.library") THEN
  14.   IF ~ADDLIB("rexxreqtools.library",0,-30) THEN EXIT
  15. END
  16. nix=changesub(AT_READER,"Text Viewer","10")
  17. nix=changesub(AT_VIEWER,"Picture Viewer","20")
  18. nix=changesub(AT_GUIDE,"Amigaguide Viewer","30")
  19. nix=changesub(AT_HTML,"HTML Browser","45")
  20. nix=changesub(AT_8SVXPLAY,"IFF Sample Player","60")
  21. nix=changesub(AT_MODPLAY,"MOD Player (PT+MED)","70")
  22. nix=changesub(AT_MPGAPLAY,"MPEG Audio Player","80")
  23. nix=changesub(AT_16BPlay,"VOC + WAV Player","90")
  24. EXIT
  25.  
  26. changesub:
  27. ARG VARNAME,VARTEXT,PROZ
  28. var=GetVar(VARNAME,"G")
  29. if var~="" then do
  30.    luck=rtezrequest('Wollen Sie einen neuen '||VARTEXT||' auswählen'||'0a'x||'oder auf Standard zurücksetzen?','_Ändern | _Default | _Nö, schon ok',PROZ||'% fertig...','rt_reqpos=reqpos_centerscr')
  31.    if luck=1 then do
  32.       filename = rtfilerequest('sys:','','Bitte ein Programm auswählen','_Use','rt_reqpos=reqpos_centerscr rtfi_matchpat=~(#?.info) rtfi_flags=freqf_patgad')
  33.       if filename~="" then
  34.          if Exists(filename)=0 then rtezrequest('Programm nicht gefunden!','_Hmmm','','rt_reqpos=reqpos_centerscr')
  35.       filename = rtgetstring('"'||filename||'"','Evtl. Parameter eingeben',filename,,'rtgl_min = 0 rtgl_max = 999')
  36.       if filename~="" then do
  37.          SetVar(VARNAME,filename,"G")
  38.          address command "copy env:"||VARNAME||" envarc:"||VARNAME
  39.       end
  40.    end
  41.    if luck=2 then do
  42.       DeleteVar(VARNAME,"G")
  43.       address command "delete >nil: envarc:"||VARNAME
  44.    end
  45. end
  46. if var="" then do
  47.    if rtezrequest('Wollen Sie einen neuen '||VARTEXT||' auswählen?','_Ja klar! | _Nö, schon ok',PROZ||'% fertig...','rt_reqpos=reqpos_centerscr')=1 then do
  48.       filename = rtfilerequest('sys:','','Bitte ein Programm auswählen','_Use','rt_reqpos=reqpos_centerscr rtfi_matchpat=~(#?.info) rtfi_flags=freqf_patgad')
  49.       if filename~="" then
  50.          if Exists(filename)=0 then rtezrequest('Programm nicht gefunden!','_Hmmm','','rt_reqpos=reqpos_centerscr')
  51.       filename = rtgetstring('"'||filename||'"','Evtl. Parameter eingeben',filename,,'rtgl_min = 0 rtgl_max = 999')
  52.       if filename~="" then do
  53.          SetVar(VARNAME,filename,"G")
  54.          address command "copy env:"||VARNAME||" envarc:"||VARNAME
  55.       end
  56.    end
  57. end
  58. return 0
  59.